home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / PBC30.ZIP / RINSTR.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-11-12  |  678 b   |  22 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1994  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.  
  8.    DECLARE SUB Reverse (St$)
  9.  
  10. SUB RInstr (MainSt$, SubSt$, Posn%)
  11.    Main$ = MainSt$
  12.    Sub$ = SubSt$
  13.    Reverse Main$
  14.    Reverse Sub$
  15.    Tmp% = INSTR(Main$, Sub$)
  16.    IF Tmp% THEN
  17.       Posn% = LEN(Main$) - LEN(Sub$) - Tmp% + 2
  18.    ELSE
  19.       Posn% = 0
  20.    END IF
  21. END SUB
  22.